Apple Reference & Present…nuary (Partner) - Disc 1/The Apple Reference and Presentations Library (Disc 1)(January 1994).iso/Aldus/US English/PageMaker 5.0/PageMaker 5.0 PPC/PM5.0P TV RSRC/PM5.0P TV RSRC.rsrc/PSRC_130

Text File | 1994-05-25 | 3KB | 3 lines

/ORimage{$gate_1$clrOverride and{ALPS begin/$gate_1 F def X1` _orclr null ne{_orclrcustomcolorimage}{separationimage}ifelse a3`/$gate_1 T def end}{ALPS begin$MetalHead begin image end end}ifelse}bdef/W1`{ALPS begin _prcs? xdef/_ortntxdef dup null ne{_prcs?{findcmykprocesscolor}{findcmykcustomcolor}ifelse}if/_orclr xdef/_cjc?/SetORColorProc _prcs? _orclr _ortnt n2` false setoverprint/_gop false def/_spotOR? F def Y2` a3`/$clrOverride T def end}bdef/Y1`{ALPSbegin/_gop xdef end}bdef/*findcmykcustomclr null def/*newcmykcustomclr nulldef/epsdict null def/typedict null def/*$setcustomclr null def/_spotOR? F def/$spotOverride F def/$gate_2 T def/clrAdjust? F def/_fhbool F def/f2`{ALPSbegin dup dict/epsdict xdef dict/typedict xdef/clrAdjust? T def end}bdef/g2`{cvn 8 1 roll exch 2 array astore 1 index cvn exch typedict 3 1 roll put 5array astore epsdict 3 1 roll put}bdef/h2`{null exch 2 array astore exch cvnexch typedict 3 1 roll put}bdef/i2`{ALPS begin clrAdjust?{/_spotOR? T def e3`g3`/$spotOverride T def}if end}bdef/e3`{ALPS begin/*findcmykcustomclr/findcmykcustomcolor ldef/*newcmykcustomclr/newcmykcustomcolor ldef/*$setcustomclr/setcustomcolor ldef end}bdef/f3`{ALPS begin/findcmykcustomcolor/*findcmykcustomclr ldef/newcmykcustomcolor/*newcmykcustomclr ldef/setcustomcolor/*$setcustomclr ldef end}bdef/g3`{ALPSbegin/findcmykcustomcolor/h3` ldef/newcmykcustomcolor/n3` ldef/setcustomcolor/i3` ldef end}bdef/h3`{$gate_2 $spotOverride and{ALPS begin/$gate_2 F def dupcvn epsdict exch known{5 1 roll 4{pop}repeat cvn epsdict exch get aload pop}iff3` findcmykcustomcolor g3`/$gate_2 T def end}{ALPS begin $MetalHead beginfindcmykcustomcolor end end}ifelse}bdef/n3`{$gate_2 $spotOverride and{ALPSbegin/$gate_2 F def/_fhbool xdef dup cvn epsdict exch known{5 1 roll 4{pop}repeat cvn epsdict exch get aload pop}if _fhbool f3` newcmykcustomcolor g3`/$gate_2 T def end}{ALPS begin $MetalHead begin newcmykcustomcolor end end}ifelse}bdef/i3`{$gate_2 $spotOverride and{ALPS begin/$gate_2 F def 1 index 4get cvn dup typedict exch known{typedict exch get aload pop 1 index null eq{exch pop mul 1 exch sub exch pop f3` setseparationgray g3`}{exch{f3` mulsetprocesscolor g3`}{f3` mul setcustomcolor g3`}ifelse}ifelse}{pop f3`setcustomcolor g3`}ifelse/$gate_2 T def end}{ALPS begin $MetalHead beginsetcustomcolor end end}ifelse}bdef/BMT 2 dict def BMT begin/*def/def load def/def{1 index/fcheckload eq{pop{pop pop}}if *def}bdef end/t1`{BMT begin}bdef/u1`{end}bdef/u1a`{findfont pop}bdef end/setpacking where{pop setpacking}if%%EndResource